perm filename FORMAT.LAP[LSP,SYS] blob
sn#156495 filedate 1975-04-30 generic text, type T, neo UTF8
(COMMENT GENERALLY USEFUL LISP MACROS)
(COMMENT END OF GENERAL LISP MACROS)
(COMMENT PROPERTY TABLE PRIMITIVES)
(LAP DELETEPROP SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 1)
TAG1 (HRRZ@ 1 0 P)
(JUMPE 1 TAG3)
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(CAME 1 -1 P)
(JRST 0 TAG7)
(HRRZ@ 1 0 P)
(CALL 1 (E CDDR))
(HRRM@ 1 0 P)
(MOVEI 1 (QUOTE T))
(JRST 0 TAG2)
TAG7 (HRRZ@ 1 0 P)
(HRRZ@ 1 1)
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG3 (MOVEI 1 (QUOTE NIL))
TAG2 (SUB P (C 0 0 3 3))
(POPJ P)
NIL
(LAP GETGET SUBR)
(PUSH P 1)
(PUSH P 2)
(HRRZ@ 1 1)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -1 P)
(JUMPE 1 TAG3)
(MOVE 2 -2 P)
(HLRZ@ 1 1)
(CALL 2 (E SEEKPROP))
(MOVEM 1 0 P)
(JUMPE 1 TAG7)
(JRST 0 TAG2)
TAG7 (HRRZ@ 1 -1 P)
(HRRZ@ 1 1)
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG3 (MOVEI 1 (QUOTE NIL))
TAG2 (SUB P (C 0 0 4 4))
(POPJ P)
NIL
(LAP INITPROP SUBR)
(PUSH P 2)
(HRRZ@ 2 1)
(PUSH P 1)
(MOVE 1 3)
(CALL 2 (E CONS))
(MOVE 2 -1 P)
(CALL 2 (E XCONS))
(HRRM@ 1 0 P)
(POP P 1)
(SUB P (C 0 0 1 1))
(POPJ P)
NIL
(LAP SEEKPROP SUBR)
(PUSH P 1)
(MOVE 1 2)
(CALL 1 (E NCONS))
(MOVE 2 1)
(POP P 1)
(JCALL 2 (E GETL))
NIL
(LAP SETPROP SUBR)
(EXCH 3 2)
(JCALL 3 (E PUTPROP))
NIL
(COMMENT END OF PROPERTY TABLE PRIMITIVES)
(COMMENT FORMAT PROGRAM MACROS)
(COMMENT END OF FORMAT PROGRAM MACROS)
(LAP ALTERCOL SUBR)
(HRLM@ 2 1)
(POPJ P)
NIL
(LAP ALTERHT SUBR)
(PUSH P 1)
(HRRZ@ 1 1)
(HRLM@ 2 1)
(POP P 1)
(POPJ P)
NIL
(LAP ALTERTEXT SUBR)
(PUSH P 1)
(CALL 1 (E CDDR))
(HRRM@ 2 1)
(POP P 1)
(POPJ P)
NIL
(LAP ALTERWDTH SUBR)
(PUSH P 1)
(CALL 1 (E CDDR))
(HRLM@ 2 1)
(POP P 1)
(POPJ P)
NIL
(LAP COMPOSASSIGN SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P 4)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE 1))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE 0))
(CALL 2 (E XCONS))
(PUSH P 1)
(CALL 1 (E SETLPR))
(HLRZ@ 2 -4 P)
(MOVE 1 0 P)
(CALL 2 (E SETEXPR))
(MOVE 1 0 P)
(CALL 1 (E SETSPC))
(HRRZ@ 2 -4 P)
(HLRZ@ 2 2)
(MOVE 1 0 P)
(CALL 2 (E SETEXPR))
(HLRZ@ 1 0 P)
(CALL 1 (E ADD1))
(PUSH P 1)
(HRRZ@ 1 -5 P)
(HRRZ@ 1 1)
(MOVE 2 0 P)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P 1)
(MOVE 1 -6 P)
(CALL 2 (E *DIF))
(PUSH P 1)
(MOVE 1 -6 P)
(CALL 1 (E ADD1))
(PUSH P 1)
(MOVE 1 -4 P)
(CALL 1 (E SUB1))
(MOVE 2 -6 P)
(CALL 2 (E *PLUS))
(MOVE 4 1)
(POP P 3)
(POP P 2)
(POP P 1)
(CALL 4 (E COMPOSLIST))
(MOVEM 1 0 P)
(MOVE 1 -4 P)
(CALL 1 (E ADD1))
(MOVE 2 1)
(MOVE 1 0 P)
(CALL 2 (E FULLWTH))
(MOVE 2 -1 P)
(PUSH P 1)
(MOVE 1 -6 P)
(CALL 2 (E *DIF))
(POP P 2)
(CALL 2 (E *LESS))
(JUMPN 1 TAG5)
(MOVE 3 0 P)
(MOVE 2 -1 P)
(MOVE 1 -2 P)
(CALL 3 (E SETLIST))
(CALL 1 (E SETRPR))
(JRST 0 TAG1)
TAG5 (HRRZ@ 1 -6 P)
(HLRZ@ 1 1)
(CALL 1 (E FLATSIZE))
(CALL 1 (E ADD1))
(MOVE 2 1)
(MOVE 1 -1 P)
(CALL 2 (E *DIF))
(MOVEM 1 -1 P)
(HRRZ@ 1 -6 P)
(HRRZ@ 1 1)
(MOVE 2 -1 P)
(PUSH P 1)
(MOVE 1 -6 P)
(CALL 2 (E *DIF))
(PUSH P 1)
(MOVE 1 -6 P)
(CALL 1 (E ADD1))
(PUSH P 1)
(MOVE 1 -4 P)
(CALL 1 (E SUB1))
(MOVE 2 -6 P)
(CALL 2 (E *PLUS))
(MOVE 4 1)
(POP P 3)
(POP P 2)
(POP P 1)
(CALL 4 (E COMPOSLIST))
(MOVEM 1 0 P)
(MOVE 1 -4 P)
(CALL 1 (E ADD1))
(MOVE 2 1)
(MOVE 1 0 P)
(CALL 2 (E FULLWTH))
(MOVE 2 -1 P)
(PUSH P 1)
(MOVE 1 -6 P)
(CALL 2 (E *DIF))
(POP P 2)
(CALL 2 (E *LESS))
(JUMPN 1 TAG7)
(MOVE 3 0 P)
(MOVE 2 -1 P)
(MOVE 1 -2 P)
(CALL 3 (E SETLIST))
(CALL 1 (E SETRPR))
(JRST 0 TAG1)
TAG7 (HRRZ@ 1 -6 P)
(HRRZ@ 1 1)
(PUSH P 1)
(MOVE 1 -6 P)
(CALL 1 (E SUB1))
(PUSH P 1)
(MOVE 1 -6 P)
(CALL 1 (E ADD1))
(MOVE 4 -5 P)
(MOVE 3 1)
(POP P 2)
(POP P 1)
(CALL 4 (E COMPOSLIST))
(MOVE 3 1)
(MOVEI 2 (QUOTE 1))
(MOVE 1 -2 P)
(CALL 3 (E SETLIST))
(CALL 1 (E SETRPR))
TAG1 (SUB P (C 0 0 7 7))
(POPJ P)
NIL
(LAP COMPOSATOMS SUBR)
(PUSH P 1)
(PUSH P 2)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE 1))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE 0))
(CALL 2 (E XCONS))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 1 -3 P)
(JUMPE 1 TAG6)
(HLRZ@ 2 1)
(MOVE 1 -1 P)
(CALL 2 (E SETEXPR))
(HRRZ@ 1 -3 P)
(MOVEM 1 -3 P)
TAG6
TAG1 (MOVE 1 -3 P)
(JUMPN 1 TAG10)
(MOVE 1 -1 P)
(JRST 0 TAG2)
TAG10 (MOVEI 2 (QUOTE 1))
(HLRZ@ 1 -1 P)
(CALL 2 (E *PLUS))
(PUSH P 1)
(HLRZ@ 1 -4 P)
(CALL 1 (E FLATSIZE))
(POP P 2)
(CALL 2 (E *PLUS))
(MOVEM 1 0 P)
(HRRZ@ 1 -3 P)
(JUMPN 1 TAG12)
(MOVE 1 0 P)
(CALL 1 (E ADD1))
(MOVEM 1 0 P)
TAG12 (MOVE 2 -2 P)
(MOVE 1 0 P)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG14)
(MOVEI 2 (QUOTE 0))
(MOVE 1 -1 P)
(CALL 2 (E SETTAB))
(JRST 0 TAG13)
TAG14 (MOVE 1 -1 P)
(CALL 1 (E SETSPC))
TAG15
TAG13 (HLRZ@ 2 -3 P)
(MOVE 1 -1 P)
(CALL 2 (E SETEXPR))
(HRRZ@ 1 -3 P)
(MOVEM 1 -3 P)
(JRST 0 TAG1)
TAG2 (SUB P (C 0 0 4 4))
(POPJ P)
NIL
(LAP COMPOSDEFS SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P 4)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE 1))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE 0))
(CALL 2 (E XCONS))
(PUSH P 1)
(CALL 1 (E SETLPR))
(HLRZ@ 2 -4 P)
(MOVE 1 0 P)
(CALL 2 (E SETEXPR))
(MOVE 1 0 P)
(CALL 1 (E SETSPC))
(HRRZ@ 2 -4 P)
(HLRZ@ 2 2)
(MOVE 1 0 P)
(CALL 2 (E SETEXPR))
(HLRZ@ 1 -4 P)
(CALL 1 (E FLATSIZE))
(MOVEI 2 (QUOTE 2))
(CALL 2 (E *PLUS))
(PUSH P 1)
(HRRZ@ 1 -5 P)
(HRRZ@ 1 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P 1)
(MOVE 1 -6 P)
(CALL 1 (E SUB1))
(PUSH P 1)
(MOVE 1 -6 P)
(CALL 1 (E ADD1))
(MOVE 4 -5 P)
(MOVE 3 1)
(POP P 2)
(POP P 1)
(CALL 4 (E COMPOSLIST))
(MOVEM 1 0 P)
(MOVE 1 -4 P)
(CALL 1 (E ADD1))
(MOVE 2 1)
(MOVE 1 0 P)
(CALL 2 (E FULLWTH))
(MOVE 2 -1 P)
(PUSH P 1)
(MOVE 1 -6 P)
(CALL 2 (E *DIF))
(POP P 2)
(CALL 2 (E *LESS))
(JUMPE 1 TAG5)
(MOVEI 1 (QUOTE 1))
(MOVEM 1 -1 P)
TAG5 (MOVE 3 0 P)
(MOVE 2 -1 P)
(MOVE 1 -2 P)
(CALL 3 (E SETLIST))
(SUB P (C 0 0 7 7))
(JCALL 1 (E SETRPR))
NIL
(LAP COMPOSDEDFDM SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P 4)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE 1))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE 0))
(CALL 2 (E XCONS))
(PUSH P 1)
(CALL 1 (E SETLPR))
(HLRZ@ 2 -4 P)
(MOVE 1 0 P)
(CALL 2 (E SETEXPR))
(MOVE 1 0 P)
(CALL 1 (E SETSPC))
(HRRZ@ 2 -4 P)
(HLRZ@ 2 2)
(MOVE 1 0 P)
(CALL 2 (E SETEXPR))
(MOVE 1 0 P)
(CALL 1 (E SETSPC))
(HRRZ@ 2 -4 P)
(HRRZ@ 2 2)
(HLRZ@ 2 2)
(MOVE 1 0 P)
(CALL 2 (E SETEXPR))
(HLRZ@ 1 -4 P)
(CALL 1 (E FLATSIZE))
(MOVEI 2 (QUOTE 2))
(CALL 2 (E *PLUS))
(PUSH P 1)
(HRRZ@ 1 -5 P)
(HLRZ@ 1 1)
(CALL 1 (E FLATSIZE))
(MOVE 2 0 P)
(CALL 2 (E *PLUS))
(MOVEI 2 (QUOTE 1))
(CALL 2 (E *PLUS))
(PUSH P 1)
(HRRZ@ 1 -6 P)
(CALL 1 (E CDDR))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P 1)
(MOVE 1 -7 P)
(CALL 1 (E SUB1))
(PUSH P 1)
(MOVE 1 -7 P)
(CALL 1 (E ADD1))
(MOVE 4 -6 P)
(MOVE 3 1)
(POP P 2)
(POP P 1)
(CALL 4 (E COMPOSLIST))
(MOVEM 1 0 P)
(MOVE 1 -5 P)
(CALL 1 (E ADD1))
(MOVE 2 1)
(MOVE 1 0 P)
(CALL 2 (E FULLWTH))
(MOVE 2 -1 P)
(PUSH P 1)
(MOVE 1 -7 P)
(CALL 2 (E *DIF))
(POP P 2)
(CALL 2 (E *LESS))
(JUMPE 1 TAG5)
(MOVE 1 -2 P)
(MOVEM 1 -1 P)
TAG5 (MOVE 1 -5 P)
(CALL 1 (E ADD1))
(MOVE 2 1)
(MOVE 1 0 P)
(CALL 2 (E FULLWTH))
(MOVE 2 -1 P)
(PUSH P 1)
(MOVE 1 -7 P)
(CALL 2 (E *DIF))
(POP P 2)
(CALL 2 (E *LESS))
(JUMPE 1 TAG7)
(MOVEI 1 (QUOTE 1))
(MOVEM 1 -1 P)
TAG7 (MOVE 3 0 P)
(MOVE 2 -1 P)
(MOVE 1 -3 P)
(CALL 3 (E SETLIST))
(SUB P (C 0 0 10 10))
(JCALL 1 (E SETRPR))
NIL
(LAP COMPOSEXPR SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P 4)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(CALL 1 (E ATOM))
(JUMPE 1 TAG6)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE 1))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE 0))
(CALL 2 (E XCONS))
(MOVE 2 -10 P)
(CALL 2 (E SETEXPR))
(JRST 0 TAG2)
TAG6 (HLRZ@ 1 -10 P)
(CALL 1 (E ATOM))
(JUMPE 1 TAG10)
(HLRZ@ 1 -10 P)
(CALL 1 (E NUMBERP))
(JUMPN 1 TAG10)
(MOVEI 2 (QUOTE INTERNFORM))
(HLRZ@ 1 -10 P)
(CALL 2 (E GETGET))
(MOVEM 1 -4 P)
(JUMPE 1 TAG10)
(HRRZ@ 1 -4 P)
(HLRZ@ 1 1)
(MOVE 4 -5 P)
(MOVE 3 -6 P)
(MOVE 2 -7 P)
(PUSH P 1)
(MOVE 1 -11 P)
(CALLF@ 4 0 P)
(SUB P (C 0 0 1 1))
(JRST 0 TAG2)
TAG10 (MOVEI 1 (QUOTE 0))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE 1))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE 0))
(CALL 2 (E XCONS))
(MOVE 2 -10 P)
(CALL 2 (E SETEXPR))
(MOVEM 1 0 P)
(MOVE 2 -6 P)
(HLRZ@ 1 1)
(CALL 2 (E *PLUS))
(MOVE 2 -7 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG13)
(MOVE 1 0 P)
(JRST 0 TAG2)
TAG13 (MOVEI 1 (QUOTE 0))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE 1))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE 0))
(CALL 2 (E XCONS))
(CALL 1 (E SETLPR))
(MOVEM 1 0 P)
(HRRZ@ 1 -10 P)
(CALL 1 (E ATOM))
(JUMPE 1 TAG15)
(MOVE 1 -7 P)
(CALL 1 (E SUB1))
(PUSH P 1)
(MOVE 1 -7 P)
(CALL 1 (E ADD1))
(MOVE 4 -6 P)
(MOVE 3 1)
(POP P 2)
(MOVE 1 -10 P)
(CALL 4 (E COMPOSLIST))
(MOVE 3 1)
(MOVEI 2 (QUOTE 1))
(MOVE 1 0 P)
(CALL 3 (E SETLIST))
(CALL 1 (E SETRPR))
(JRST 0 TAG2)
TAG15 (HLRZ@ 1 -10 P)
(PUSH P 1)
(MOVE 1 -10 P)
(CALL 1 (E SUB1))
(MOVE 4 -6 P)
(MOVEI 3 (QUOTE 0))
(MOVE 2 1)
(POP P 1)
(CALL 4 (E COMPOSEXPR))
(MOVEI 2 (QUOTE 2))
(MOVEM 1 -1 P)
(HLRZ@ 1 1)
(CALL 2 (E *PLUS))
(MOVEM 1 -2 P)
(HLRZ@ 1 -10 P)
(CALL 1 (E ATOM))
(JUMPN 1 TAG1)
(HRRZ@ 1 -10 P)
(PUSH P 1)
(MOVE 1 -10 P)
(CALL 1 (E SUB1))
(PUSH P 1)
(MOVE 1 -10 P)
(CALL 1 (E ADD1))
(MOVE 4 -7 P)
(MOVE 3 1)
(POP P 2)
(POP P 1)
(CALL 4 (E COMPOSLIST))
(MOVEM 1 -3 P)
(MOVEI 2 (QUOTE 1))
(HRRZ@ 1 -1 P)
(HLRZ@ 1 1)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG21)
(MOVE 2 -2 P)
(MOVE 1 -7 P)
(CALL 2 (E *DIF))
(PUSH P 1)
(MOVE 1 -7 P)
(CALL 1 (E ADD1))
(MOVE 2 1)
(MOVE 1 -4 P)
(CALL 2 (E FULLWTH))
(POP P 2)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG20)
TAG21 (MOVE 2 -3 P)
(MOVE 1 -1 P)
(CALL 2 (E SETPLATE))
(MOVE 3 1)
(MOVEI 2 (QUOTE 1))
(MOVE 1 0 P)
(CALL 3 (E SETLIST))
(CALL 1 (E SETRPR))
(JRST 0 TAG2)
TAG20 (HLRZ@ 2 -10 P)
(MOVE 1 0 P)
(CALL 2 (E SETEXPR))
(MOVE 3 -3 P)
(MOVE 2 -2 P)
(CALL 3 (E SETLIST))
(CALL 1 (E SETRPR))
(JRST 0 TAG2)
TAG1 (HRRZ@ 1 -10 P)
(MOVE 2 -2 P)
(PUSH P 1)
(MOVE 1 -10 P)
(CALL 2 (E *DIF))
(PUSH P 1)
(MOVE 1 -10 P)
(CALL 1 (E ADD1))
(PUSH P 1)
(MOVE 1 -5 P)
(CALL 1 (E SUB1))
(MOVE 2 -10 P)
(CALL 2 (E *PLUS))
(MOVE 4 1)
(POP P 3)
(POP P 2)
(POP P 1)
(CALL 4 (E COMPOSLIST))
(MOVEM 1 -3 P)
(MOVE 2 -2 P)
(MOVE 1 -7 P)
(CALL 2 (E *DIF))
(MOVE 2 -5 P)
(CALL 2 (E *PLUS))
(PUSH P 1)
(MOVE 1 -7 P)
(CALL 1 (E ADD1))
(MOVE 2 1)
(MOVE 1 -4 P)
(CALL 2 (E FULLWTH))
(POP P 2)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG23)
(HLRZ@ 2 -10 P)
(MOVE 1 0 P)
(CALL 2 (E SETEXPR))
(PUSH P 1)
(HRRZ@ 1 -11 P)
(PUSH P 1)
(MOVE 1 -11 P)
(CALL 1 (E SUB1))
(PUSH P 1)
(MOVE 1 -11 P)
(CALL 1 (E ADD1))
(MOVE 4 -10 P)
(MOVE 3 1)
(POP P 2)
(POP P 1)
(CALL 4 (E COMPOSLIST))
(MOVE 3 1)
(MOVEI 2 (QUOTE 1))
(POP P 1)
(CALL 3 (E SETLIST))
(CALL 1 (E SETRPR))
(JRST 0 TAG2)
TAG23 (HLRZ@ 2 -10 P)
(MOVE 1 0 P)
(CALL 2 (E SETEXPR))
(MOVE 3 -3 P)
(MOVE 2 -2 P)
(CALL 3 (E SETLIST))
(CALL 1 (E SETRPR))
TAG2 (SUB P (C 0 0 11 11))
(POPJ P)
NIL
(LAP COMPOSLIST SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P 4)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE 1))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE 0))
(CALL 2 (E XCONS))
(PUSH P 1)
TAG1 (HLRZ@ 1 -4 P)
(PUSH P 1)
(HRRZ@ 1 -5 P)
(JUMPN 1 TAG6)
(MOVE 3 -3 P)
(JRST 0 TAG5)
TAG6 (HRRZ@ 1 -5 P)
(CALL 1 (E ATOM))
(JUMPE 1 TAG7)
(HRRZ@ 1 -5 P)
(CALL 1 (E FLATSIZE))
(MOVE 2 -3 P)
(CALL 2 (E *PLUS))
(MOVEI 2 (QUOTE 3))
(CALL 2 (E *PLUS))
(MOVE 3 1)
(JRST 0 TAG5)
TAG7 (MOVEI 3 (QUOTE 0))
TAG10
TAG5 (MOVE 4 -2 P)
(MOVE 2 -4 P)
(POP P 1)
(CALL 4 (E COMPOSEXPR))
(MOVE 2 1)
(MOVE 1 0 P)
(CALL 2 (E SETPLATE))
(HRRZ@ 1 -4 P)
(MOVEM 1 -4 P)
(JUMPN 1 TAG13)
(MOVE 1 0 P)
(JRST 0 TAG2)
TAG13 (MOVE 1 -4 P)
(CALL 1 (E ATOM))
(JUMPE 1 TAG15)
(MOVE 2 -4 P)
(MOVE 1 0 P)
(CALL 2 (E SETATOM))
(JRST 0 TAG2)
TAG15 (JRST 0 TAG1)
TAG2 (SUB P (C 0 0 5 5))
(POPJ P)
NIL
(LAP COMPOSMAPDEF SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P 4)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE 1))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE 0))
(CALL 2 (E XCONS))
(PUSH P 1)
(CALL 1 (E SETLPR))
(HLRZ@ 2 -4 P)
(MOVE 1 0 P)
(CALL 2 (E SETEXPR))
(MOVE 1 0 P)
(CALL 1 (E SETSPC))
(HRRZ@ 2 -4 P)
(HLRZ@ 2 2)
(MOVE 1 0 P)
(CALL 2 (E SETEXPR))
(MOVE 1 0 P)
(CALL 1 (E SETSPC))
(HLRZ@ 1 0 P)
(PUSH P 1)
(HRRZ@ 1 -5 P)
(HRRZ@ 1 1)
(MOVE 2 0 P)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P 1)
(MOVE 1 -6 P)
(CALL 2 (E *DIF))
(PUSH P 1)
(MOVE 1 -6 P)
(CALL 1 (E ADD1))
(MOVE 4 -5 P)
(MOVE 3 1)
(POP P 2)
(POP P 1)
(CALL 4 (E COMPOSATOMS))
(MOVE 3 1)
(MOVE 2 -1 P)
(MOVEM 1 0 P)
(MOVE 1 -2 P)
(CALL 3 (E SETLIST))
(SUB P (C 0 0 7 7))
(JCALL 1 (E SETRPR))
NIL
(LAP COMPOSPROG SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P 4)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE 1))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE 0))
(CALL 2 (E XCONS))
(PUSH P 1)
(CALL 1 (E SETLPR))
(HLRZ@ 2 -4 P)
(MOVE 1 0 P)
(CALL 2 (E SETEXPR))
(MOVE 1 0 P)
(CALL 1 (E SETSPC))
(HLRZ@ 1 -4 P)
(CALL 1 (E FLATSIZE))
(MOVEI 2 (QUOTE 2))
(CALL 2 (E *PLUS))
(PUSH P 1)
(HRRZ@ 1 -5 P)
(HLRZ@ 1 1)
(MOVE 2 0 P)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P 1)
(MOVE 1 -7 P)
(CALL 2 (E *DIF))
(PUSH P 1)
(HRRZ@ 1 -11 P)
(HRRZ@ 1 1)
(JUMPN 1 TAG6)
(MOVE 1 -7 P)
(CALL 1 (E ADD1))
(MOVE 3 1)
(JRST 0 TAG5)
TAG6 (MOVEI 3 (QUOTE 0))
TAG7
TAG5 (MOVE 4 -6 P)
(POP P 2)
(POP P 1)
(CALL 4 (E COMPOSPVARS))
(MOVE 3 1)
(MOVE 2 -2 P)
(MOVEM 1 0 P)
(MOVE 1 -3 P)
(CALL 3 (E SETLIST))
(HRRZ@ 1 -7 P)
(HRRZ@ 1 1)
(MOVEM 1 -1 P)
TAG1 (MOVE 1 -1 P)
(JUMPN 1 TAG12)
(MOVE 1 -3 P)
(CALL 1 (E SETRPR))
(JRST 0 TAG2)
TAG12 (HLRZ@ 1 -1 P)
(CALL 1 (E ATOM))
(JUMPE 1 TAG14)
(MOVEI 2 (QUOTE 1))
(MOVE 1 -3 P)
(CALL 2 (E SETTAB))
(HLRZ@ 2 -1 P)
(CALL 2 (E SETEXPR))
(JRST 0 TAG13)
TAG14 (HLRZ@ 1 -1 P)
(MOVE 2 -2 P)
(PUSH P 1)
(MOVE 1 -7 P)
(CALL 2 (E *DIF))
(PUSH P 1)
(HRRZ@ 1 -3 P)
(JUMPN 1 TAG20)
(MOVE 1 -7 P)
(CALL 1 (E ADD1))
(MOVE 3 1)
(JRST 0 TAG17)
TAG20 (MOVEI 3 (QUOTE 0))
TAG21
TAG17 (MOVE 4 -6 P)
(POP P 2)
(POP P 1)
(CALL 4 (E COMPOSEXPR))
(MOVE 3 1)
(MOVE 2 -2 P)
(MOVE 1 -3 P)
(CALL 3 (E SETLIST))
TAG15
TAG13 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG2 (SUB P (C 0 0 10 10))
(POPJ P)
NIL
(LAP COMPOSPVARS SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P 4)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE 1))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE 0))
(CALL 2 (E XCONS))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 1 -5 P)
(CALL 1 (E ATOM))
(JUMPN 1 TAG6)
(MOVE 1 -5 P)
(CALL 1 (E FLATSIZE))
(MOVE 2 -3 P)
(PUSH P 1)
(MOVE 1 -5 P)
(CALL 2 (E *DIF))
(POP P 2)
(CALL 2 (E *LESS))
(JUMPN 1 TAG5)
TAG6 (MOVE 2 -5 P)
(MOVE 1 -1 P)
(CALL 2 (E SETEXPR))
(JRST 0 TAG1)
TAG5 (MOVE 1 -4 P)
(CALL 1 (E SUB1))
(PUSH P 1)
(MOVE 1 -4 P)
(CALL 1 (E ADD1))
(MOVE 4 -3 P)
(MOVE 3 1)
(POP P 2)
(MOVE 1 -5 P)
(CALL 4 (E COMPOSATOMS))
(MOVEM 1 0 P)
(MOVE 1 -1 P)
(CALL 1 (E SETLPR))
(MOVE 3 0 P)
(MOVEI 2 (QUOTE 1))
(CALL 3 (E SETLIST))
(CALL 1 (E SETRPR))
TAG1 (SUB P (C 0 0 6 6))
(POPJ P)
NIL
(LAP COMPOSSPECIAL SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P 4)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE 1))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE 0))
(CALL 2 (E XCONS))
(PUSH P 1)
(HLRZ@ 1 -4 P)
(CALL 1 (E FLATSIZE))
(MOVEI 2 (QUOTE 2))
(CALL 2 (E *PLUS))
(PUSH P 1)
(MOVE 1 -1 P)
(CALL 1 (E SETLPR))
(HLRZ@ 2 -5 P)
(MOVE 1 -1 P)
(CALL 2 (E SETEXPR))
(MOVE 1 -1 P)
(CALL 1 (E SETSPC))
(HRRZ@ 1 -5 P)
(MOVE 2 0 P)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P 1)
(MOVE 1 -6 P)
(CALL 2 (E *DIF))
(PUSH P 1)
(MOVE 1 -6 P)
(CALL 1 (E ADD1))
(MOVE 4 -5 P)
(MOVE 3 1)
(POP P 2)
(POP P 1)
(CALL 4 (E COMPOSATOMS))
(MOVE 3 1)
(MOVE 2 -1 P)
(MOVEM 1 0 P)
(MOVE 1 -2 P)
(CALL 3 (E SETLIST))
(SUB P (C 0 0 7 7))
(JCALL 1 (E SETRPR))
NIL
(LAP CURCOL SUBR)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E LINELENGTH))
(CALL 1 (E ADD1))
(PUSH P 1)
(CALL 0 (E CHRCT))
(MOVE 2 1)
(POP P 1)
(JCALL 2 (E *DIF))
NIL
(LAP DATAERR FSUBR)
(PUSH P 1)
(MOVEI 2 (QUOTE T))
(MOVEI 1 (QUOTE NIL))
(CALL 2 (E INC))
(MOVEI 2 (QUOTE T))
(MOVEI 1 (QUOTE NIL))
(CALL 2 (E OUTC))
(MOVE 1 0 P)
(CALL 1 (E PRINT))
(MOVEI 1 (QUOTE NIL))
(SUB P (C 0 0 1 1))
(POPJ P)
NIL
(LAP DOEXCEPT SUBR)
(PUSH P 2)
(MOVEI 2 (QUOTE EXCEPTCOMPOS))
(PUSH P 1)
(HLRZ@ 1 1)
(CALL 2 (E GET))
(EXCH 2 -1 P)
(EXCH 1 0 P)
(CALLF@ 4 0 P)
(SUB P (C 0 0 2 2))
(POPJ P)
NIL
(LAP DOSPEC SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P 4)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE 1))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE 0))
(CALL 2 (E XCONS))
(MOVE 2 -3 P)
(CALL 2 (E SETEXPR))
(PUSH P 1)
(MOVE 2 -2 P)
(HLRZ@ 1 1)
(CALL 2 (E *PLUS))
(MOVE 2 -3 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG5)
(MOVE 1 0 P)
(JRST 0 TAG1)
TAG5 (MOVEI 2 (QUOTE SPECCOMPOS))
(HLRZ@ 1 -4 P)
(CALL 2 (E GET))
(MOVE 4 -1 P)
(MOVE 3 -2 P)
(MOVE 2 -3 P)
(PUSH P 1)
(MOVE 1 -5 P)
(CALLF@ 4 0 P)
(SUB P (C 0 0 1 1))
TAG1 (SUB P (C 0 0 5 5))
(POPJ P)
NIL
(LAP DOFILE SUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL LINCNT))
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(MOVEI 1 (QUOTE 0))
(MOVEM 1 (SPECIAL LINCNT))
(MOVEI 1 (QUOTE INCHAN))
(CALL 2 (E CONS))
(CALL 17 (E INPUT))
(MOVE 2 0 P)
(MOVEI 1 (QUOTE OUTCHAN))
(CALL 2 (E CONS))
(CALL 17 (E OUTPUT))
(MOVEI 2 (QUOTE NIL))
(MOVEI 1 (QUOTE INCHAN))
(CALL 2 (E INC))
(MOVEI 2 (QUOTE NIL))
(MOVEI 1 (QUOTE OUTCHAN))
(CALL 2 (E OUTC))
(CALLF@ 0 -2 P)
(MOVEI 2 (QUOTE T))
(MOVEI 1 (QUOTE NIL))
(CALL 2 (E OUTC))
(MOVEI 2 (QUOTE T))
(MOVEI 1 (QUOTE NIL))
(CALL 2 (E INC))
(MOVEI 1 (QUOTE NIL))
(SUB P (C 0 0 3 3))
(JRST 0 SPECSTR)
NIL
(LAP FORMAT FSUBR)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE DSK:) 0))
TAG1 (MOVE 1 -1 P)
(JUMPE 1 TAG3)
(HLRZ@ 1 1)
(CALL 1 (E %DEVP))
(JUMPE 1 TAG7)
(HLRZ@ 1 -1 P)
(MOVEM 1 0 P)
(HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
TAG7 (HLRZ@ 1 -1 P)
(CALL 1 (E NCONS))
(MOVE 2 0 P)
(CALL 2 (E XCONS))
(PUSH P 1)
(HLRZ@ 1 -2 P)
(CALL 1 (E ATOM))
(JUMPE 1 TAG11)
(HLRZ@ 1 -2 P)
(JRST 0 TAG10)
TAG11 (HLRZ@ 1 -2 P)
(HLRZ@ 1 1)
TAG12
TAG10 (MOVEI 2 (QUOTE FMT))
(CALL 2 (E CONS))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE DSK:))
(CALL 2 (E XCONS))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E FORMFILE))
(HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG3 (MOVEI 1 (QUOTE NIL))
(SUB P (C 0 0 2 2))
(POPJ P)
NIL
(LAP FORMFILE SUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL LINCNT))
(PUSH P 1)
(PUSH P 2)
(CALL 0 (E GENSYM))
(MOVE 2 -1 P)
(CALL 2 (E CONS))
(CALL 17 (E INPUT))
(CALL 1 (E INC))
(CALL 0 (E GENSYM))
(MOVE 2 0 P)
(CALL 2 (E CONS))
(CALL 17 (E OUTPUT))
(CALL 1 (E OUTC))
(MOVE 1 (SPECIAL PAGEWIDTH))
(CALL 1 (E LINELENGTH))
(MOVEI 1 (QUOTE 1))
(MOVEM 1 (SPECIAL LINCNT))
(CALL 0 (E FORMREADS))
(MOVEI 2 (QUOTE T))
(MOVEI 1 (QUOTE NIL))
(CALL 2 (E INC))
(MOVEI 2 (QUOTE T))
(MOVEI 1 (QUOTE NIL))
(CALL 2 (E OUTC))
(MOVEI 1 (QUOTE NIL))
(SUB P (C 0 0 2 2))
(JRST 0 SPECSTR)
NIL
(LAP FORMFUNS FSUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL LINCNT))
(PUSH P 1)
(MOVEI 1 (QUOTE 1))
(MOVEM 1 (SPECIAL LINCNT))
(MOVEI 1 (QUOTE 1))
(CALL 1 (E LINEF))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -5 P)
(JUMPN 1 TAG7)
(MOVE 1 0 P)
(CALL 1 (E REVERSE))
(JRST 0 TAG3)
TAG7 (MOVEI 1 (QUOTE (EXPR FEXPR VALUE MACRO)))
(MOVEM 1 -4 P)
(HLRZ@ 1 -5 P)
(MOVEM 1 -2 P)
(HRRZ@ 1 -5 P)
(MOVEM 1 -5 P)
TAG2 (MOVE 1 -4 P)
(JUMPE 1 TAG1)
(HLRZ@ 1 1)
(MOVEM 1 -3 P)
(HRRZ@ 1 -4 P)
(MOVEM 1 -4 P)
(MOVE 1 -3 P)
(CALL 1 (E NCONS))
(MOVE 2 1)
(MOVE 1 -2 P)
(CALL 2 (E GETL))
(MOVEM 1 -1 P)
(JUMPE 1 TAG2)
(MOVE 2 -3 P)
(MOVE 1 -2 P)
(CALL 2 (E CONS))
(MOVE 2 0 P)
(CALL 2 (E CONS))
(MOVEM 1 0 P)
(HRRZ@ 1 -1 P)
(HLRZ@ 1 1)
(MOVEM 1 -1 P)
(CALL 0 (E CURCOL))
(CAIN 1 (QUOTE 1))
(JRST 0 TAG13)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E LINEF))
TAG13 (MOVE 1 -3 P)
(CALL 1 (E NCONS))
(MOVE 2 -1 P)
(CALL 2 (E XCONS))
(MOVE 2 -2 P)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE DEFPROP))
(CALL 2 (E XCONS))
(CALL 1 (E FORMANEXPR))
(MOVEI 1 (QUOTE 1))
(CALL 1 (E LINEF))
(JRST 0 TAG2)
TAG3 (SUB P (C 0 0 6 6))
(JRST 0 SPECSTR)
NIL
(LAP FORMF SUBR)
(MOVE 1 (SPECIAL *FF))
(CALL 1 (E PRINC))
(MOVEI 1 (QUOTE 1))
(MOVEM 1 (SPECIAL LINCNT))
(MOVEI 1 (QUOTE NIL))
(POPJ P)
NIL
(LAP FORMANEXPR SUBR)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(CALL 1 (E ATOM))
(JUMPN 1 TAG6)
(HLRZ@ 1 -1 P)
(CAIN 1 (QUOTE LAP))
(JRST 0 TAG5)
TAG6 (MOVEI 1 (QUOTE NIL))
(CALL 1 (E LINELENGTH))
(MOVEI 4 (QUOTE 0))
(MOVEI 3 (QUOTE 0))
(MOVE 2 1)
(MOVE 1 -1 P)
(CALL 4 (E COMPOSEXPR))
(MOVEM 1 0 P)
(CALL 1 (E CADR))
(CALL 1 (E ADD1))
(PUSH P 1)
(MOVE 1 (SPECIAL LINCNT))
(PUSH P (SPECIAL PAGEHEIGHT))
(CALL 1 (E SUB1))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E *DIF))
(POP P 2)
(CALL 2 (E *LESS))
(JUMPE 1 TAG10)
(MOVE 1 (SPECIAL LINCNT))
(CAIN 1 (QUOTE 1))
(JRST 0 TAG12)
(CALL 0 (E FORMF))
TAG12
TAG10 (MOVEI 2 (QUOTE 0))
(HRRZ@ 1 0 P)
(CALL 1 (E CDDR))
(CALL 2 (E PRINTIT))
(JRST 0 TAG4)
TAG5 (MOVE 1 -1 P)
(CALL 1 (E READLAP))
(CALL 1 (E PRINTLAP))
TAG13
TAG4 (CALL 0 (E CURCOL))
(CAIN 1 (QUOTE 1))
(JRST 0 TAG16)
(MOVEI 1 (QUOTE 2))
(CALL 1 (E LINEF))
TAG16 (MOVEI 1 (QUOTE NIL))
(SUB P (C 0 0 2 2))
(POPJ P)
NIL
(LAP FORMREADS SUBR)
(MOVEI 1 (QUOTE FORMANEXPR))
(JCALL 1 (E READLOOP))
NIL
(LAP FULLWTH SUBR)
(PUSH P 1)
(CALL 1 (E CADDR))
(PUSH P 1)
(HLRZ@ 1 -1 P)
(CALL 2 (E *PLUS))
(MOVE 2 1)
(POP P 1)
(SUB P (C 0 0 1 1))
(JCALL 2 (E MAX))
NIL
(LAP LINEF SUBR)
(PUSH P 1)
(MOVEI 2 (QUOTE 0))
(CALL 2 (E *LESS))
(JUMPN 1 TAG3)
(MOVE 2 0 P)
(MOVE 1 (SPECIAL LINCNT))
(CALL 2 (E *PLUS))
(MOVEM 1 (SPECIAL LINCNT))
TAG1 (MOVE 1 0 P)
(CAIN 1 (QUOTE 0))
(JRST 0 TAG3)
(CALL 0 (E TERPRI))
(MOVE 1 0 P)
(CALL 1 (E SUB1))
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG3 (MOVEI 1 (QUOTE NIL))
(SUB P (C 0 0 1 1))
(POPJ P)
NIL
(LAP MAX SUBR)
(PUSH P 1)
(PUSH P 2)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG2)
(MOVE 1 -1 P)
(JRST 0 TAG1)
TAG2 (MOVE 1 0 P)
TAG3
TAG1 (SUB P (C 0 0 2 2))
(POPJ P)
NIL
(LAP PRINTIT SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -2 P)
(JUMPE 1 TAG3)
(HLRZ@ 1 1)
(MOVEM 1 0 P)
(HLRZ@ 1 1)
(CAIE 1 (QUOTE TAB))
(JRST 0 TAG7)
(HRRZ@ 2 0 P)
(HLRZ@ 2 2)
(MOVE 1 -1 P)
(CALL 2 (E *PLUS))
(CALL 1 (E ADD1))
(CALL 1 (E TABTO))
(JRST 0 TAG6)
TAG7 (HLRZ@ 1 0 P)
(CAIE 1 (QUOTE SPACE))
(JRST 0 TAG10)
(MOVE 1 (SPECIAL *SP))
(CALL 1 (E PRINC))
(JRST 0 TAG6)
TAG10 (HLRZ@ 1 0 P)
(CAIE 1 (QUOTE LPAR))
(JRST 0 TAG11)
(MOVE 1 (SPECIAL *LP))
(CALL 1 (E PRINC))
(JRST 0 TAG6)
TAG11 (HLRZ@ 1 0 P)
(CAIE 1 (QUOTE RPAR))
(JRST 0 TAG12)
(MOVE 1 (SPECIAL *RP))
(CALL 1 (E PRINC))
(JRST 0 TAG6)
TAG12 (HLRZ@ 1 0 P)
(CAIE 1 (QUOTE DOT))
(JRST 0 TAG13)
(MOVE 1 (SPECIAL *PT))
(CALL 1 (E PRINC))
(JRST 0 TAG6)
TAG13 (HLRZ@ 1 0 P)
(CAIE 1 (QUOTE CHAR))
(JRST 0 TAG14)
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(CALL 1 (E PRINC))
(JRST 0 TAG6)
TAG14 (HLRZ@ 1 0 P)
(CAIE 1 (QUOTE EXPR))
(JRST 0 TAG15)
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(CALL 1 (E PRIN1))
(JRST 0 TAG6)
TAG15 (HLRZ@ 1 0 P)
(CAIE 1 (QUOTE LIST))
(JRST 0 TAG16)
(HRRZ@ 2 0 P)
(HLRZ@ 2 2)
(MOVE 1 -1 P)
(CALL 2 (E *PLUS))
(CALL 1 (E ADD1))
(CALL 1 (E TABTO))
(HRRZ@ 1 0 P)
(HRRZ@ 1 1)
(HRRZ@ 2 0 P)
(HLRZ@ 2 2)
(PUSH P 1)
(MOVE 1 -2 P)
(CALL 2 (E *PLUS))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E PRINTIT))
TAG16
TAG6 (HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(JRST 0 TAG1)
TAG3 (MOVEI 1 (QUOTE NIL))
(SUB P (C 0 0 3 3))
(POPJ P)
NIL
(LAP PRINTLAP SUBR)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -1 P)
(JUMPE 1 TAG3)
(HLRZ@ 1 1)
(MOVEM 1 0 P)
(HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(MOVE 1 0 P)
(CALL 1 (E PRINTSTAT))
(JRST 0 TAG1)
TAG3 (MOVEI 1 (QUOTE NIL))
(SUB P (C 0 0 2 2))
(POPJ P)
NIL
(LAP PRINTN SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE 1) 0))
TAG1 (MOVE 2 0 P)
(MOVE 1 -1 P)
(CALL 2 (E *LESS))
(JUMPE 1 TAG6)
(MOVE 1 -1 P)
(JRST 0 TAG2)
TAG6 (MOVE 1 -2 P)
(CALL 1 (E PRINC))
(MOVE 1 0 P)
(CALL 1 (E ADD1))
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG2 (SUB P (C 0 0 3 3))
(POPJ P)
NIL
(LAP PRINTSTAT SUBR)
(PUSH P 1)
(JUMPN 1 TAG2)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E TABTO))
(MOVEI 1 (QUOTE 10))
(CALL 1 (E TABTO))
(JRST 0 TAG1)
TAG2 (CALL 1 (E ATOM))
(JUMPE 1 TAG3)
(MOVEI 1 (QUOTE 2))
(CALL 1 (E TABTO))
(JRST 0 TAG1)
TAG3 (HLRZ@ 1 0 P)
(CAIE 1 (QUOTE LAP))
(JRST 0 TAG4)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E TABTO))
(JRST 0 TAG1)
TAG4 (MOVEI 1 (QUOTE 10))
(CALL 1 (E TABTO))
TAG5
TAG1 (POP P 1)
(JCALL 1 (E PRIN1))
NIL
(LAP READLAP SUBR)
(PUSH P 1)
(CALL 1 (E NCONS))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVEI 1 (QUOTE ((READ))))
(CALL 17 (E ERRSET))
(MOVEM 1 0 P)
(JUMPN 1 TAG6)
(MOVEI 1 (QUOTE (EOF-READLAP)))
(CALL 17 (E DATAERR))
TAG6 (MOVE 1 0 P)
(CAIE 1 (QUOTE $EOF$))
(JRST 0 TAG10)
(MOVEI 1 (QUOTE (EOF-READLAP)))
(CALL 17 (E DATAERR))
TAG10 (HLRZ@ 1 0 P)
(MOVE 2 -1 P)
(MOVEM 1 0 P)
(CALL 2 (E CONS))
(MOVEM 1 -1 P)
(MOVE 1 0 P)
(JUMPN 1 TAG12)
(MOVE 1 -1 P)
(CALL 1 (E REVERSE))
(JRST 0 TAG2)
TAG12 (JRST 0 TAG1)
TAG2 (SUB P (C 0 0 3 3))
(POPJ P)
NIL
(LAP READLOOP SUBR)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVEI 1 (QUOTE ((READ))))
(CALL 17 (E ERRSET))
(MOVEM 1 0 P)
(CAIN 1 (QUOTE $EOF$))
(JRST 0 TAG3)
(HLRZ@ 1 1)
(CALLF@ 1 -1 P)
(JRST 0 TAG1)
TAG3 (MOVEI 1 (QUOTE NIL))
(SUB P (C 0 0 2 2))
(POPJ P)
NIL
(LAP SETATOM SUBR)
(PUSH P 2)
(CALL 1 (E SETSPC))
(CALL 1 (E SETDOT))
(CALL 1 (E SETSPC))
(POP P 2)
(JCALL 2 (E SETEXPR))
NIL
(LAP SETCHAR SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P (C 0 0 TAG1 0))
(CALL 1 (E CDDDR))
(PUSH P 1)
(MOVE 1 2)
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE CHAR))
(CALL 2 (E XCONS))
(CALL 1 (E NCONS))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC))
TAG1 (MOVE 2 1)
(MOVE 1 -1 P)
(CALL 2 (E ALTERTEXT))
(MOVEM 1 0 P)
(HLRZ@ 1 -1 P)
(CALL 1 (E ADD1))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E ALTERCOL))
(HRRZ@ 2 0 P)
(HRRZ@ 2 2)
(HLRZ@ 2 2)
(PUSH P 1)
(HLRZ@ 1 -1 P)
(CALL 2 (E MAX))
(MOVE 2 1)
(POP P 1)
(SUB P (C 0 0 1 1))
(JCALL 2 (E ALTERWDTH))
NIL
(LAP SETDOT SUBR)
(MOVE 2 (SPECIAL *PT))
(JCALL 2 (E SETCHAR))
NIL
(LAP SETEXPR SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P (C 0 0 TAG1 0))
(CALL 1 (E CDDDR))
(PUSH P 1)
(MOVE 1 2)
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE EXPR))
(CALL 2 (E XCONS))
(CALL 1 (E NCONS))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC))
TAG1 (MOVE 2 1)
(MOVE 1 -1 P)
(CALL 2 (E ALTERTEXT))
(PUSH P 1)
(HLRZ@ 1 -2 P)
(EXCH 1 -1 P)
(CALL 1 (E FLATSIZE))
(MOVE 2 -1 P)
(CALL 2 (E *PLUS))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E ALTERCOL))
(HRRZ@ 2 -1 P)
(HRRZ@ 2 2)
(HLRZ@ 2 2)
(MOVEM 1 0 P)
(HLRZ@ 1 -1 P)
(CALL 2 (E MAX))
(MOVE 2 1)
(POP P 1)
(SUB P (C 0 0 1 1))
(JCALL 2 (E ALTERWDTH))
NIL
(LAP SETLIST SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P (C 0 0 TAG1 0))
(CALL 1 (E CDDDR))
(PUSH P 1)
(HRRZ@ 2 3)
(HRRZ@ 2 2)
(HRRZ@ 2 2)
(MOVE 1 -3 P)
(CALL 2 (E CONS))
(MOVEI 2 (QUOTE LIST))
(CALL 2 (E XCONS))
(CALL 1 (E NCONS))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC))
TAG1 (MOVE 2 1)
(MOVE 1 -2 P)
(CALL 2 (E ALTERTEXT))
(PUSH P 1)
(HLRZ@ 2 -3 P)
(MOVE 1 -2 P)
(CALL 2 (E *LESS))
(JUMPE 1 TAG3)
(HRRZ@ 2 -1 P)
(HLRZ@ 2 2)
(HRRZ@ 1 -3 P)
(HLRZ@ 1 1)
(CALL 2 (E *PLUS))
(MOVE 2 1)
(JRST 0 TAG2)
TAG3 (HRRZ@ 2 -1 P)
(HLRZ@ 2 2)
(HRRZ@ 1 -3 P)
(HLRZ@ 1 1)
(CALL 2 (E *PLUS))
(CALL 1 (E SUB1))
(MOVE 2 1)
TAG4
TAG2 (POP P 1)
(CALL 2 (E ALTERHT))
(PUSH P 1)
(HRRZ@ 1 -3 P)
(CALL 1 (E CADR))
(HRRZ@ 2 -1 P)
(HRRZ@ 2 2)
(HLRZ@ 2 2)
(MOVEM 1 -3 P)
(MOVE 1 -2 P)
(CALL 2 (E *PLUS))
(MOVE 2 1)
(EXCH 1 -3 P)
(CALL 2 (E MAX))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E ALTERWDTH))
(HLRZ@ 2 0 P)
(EXCH 1 -1 P)
(CALL 2 (E *PLUS))
(MOVE 2 1)
(EXCH 1 -1 P)
(SUB P (C 0 0 3 3))
(JCALL 2 (E ALTERCOL))
NIL
(LAP SETLPR SUBR)
(MOVE 2 (SPECIAL *LP))
(JCALL 2 (E SETCHAR))
NIL
(LAP SETPLATE SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P (C 0 0 TAG1 0))
(MOVEI 2 (QUOTE 0))
(CALL 2 (E SETTAB))
(HRRZ@ 2 1)
(HRRZ@ 2 2)
(HRRZ@ 2 2)
(PUSH P 2)
(HRRZ@ 1 -2 P)
(CALL 1 (E CDDR))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC))
TAG1 (MOVE 2 1)
(MOVE 1 -1 P)
(CALL 2 (E ALTERTEXT))
(HRRZ@ 2 0 P)
(HRRZ@ 2 2)
(HLRZ@ 2 2)
(PUSH P 1)
(HRRZ@ 1 -2 P)
(CALL 1 (E CADR))
(CALL 2 (E MAX))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E ALTERWDTH))
(HRRZ@ 2 0 P)
(HLRZ@ 2 2)
(PUSH P 1)
(HRRZ@ 1 -2 P)
(HLRZ@ 1 1)
(CALL 2 (E *PLUS))
(CALL 1 (E SUB1))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E ALTERHT))
(HLRZ@ 2 0 P)
(SUB P (C 0 0 2 2))
(JCALL 2 (E ALTERCOL))
NIL
(LAP SETRPR SUBR)
(MOVE 2 (SPECIAL *RP))
(JCALL 2 (E SETCHAR))
NIL
(LAP SETSPC SUBR)
(MOVE 2 (SPECIAL *SP))
(JCALL 2 (E SETCHAR))
NIL
(LAP SETTAB SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P (C 0 0 TAG1 0))
(CALL 1 (E CDDDR))
(PUSH P 1)
(MOVE 1 2)
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE TAB))
(CALL 2 (E XCONS))
(CALL 1 (E NCONS))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC))
TAG1 (MOVE 2 1)
(MOVE 1 -1 P)
(CALL 2 (E ALTERTEXT))
(PUSH P 1)
(HLRZ@ 2 -2 P)
(MOVE 1 -1 P)
(CALL 2 (E *LESS))
(JUMPE 1 TAG3)
(HRRZ@ 1 -2 P)
(HLRZ@ 1 1)
(CALL 1 (E ADD1))
(MOVE 2 1)
(JRST 0 TAG2)
TAG3 (HRRZ@ 2 -2 P)
(HLRZ@ 2 2)
TAG4
TAG2 (POP P 1)
(CALL 2 (E ALTERHT))
(MOVE 2 0 P)
(PUSH P 1)
(HRRZ@ 1 -2 P)
(CALL 1 (E CADR))
(CALL 2 (E MAX))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E ALTERWDTH))
(POP P 2)
(SUB P (C 0 0 1 1))
(JCALL 2 (E ALTERCOL))
NIL
(LAP TABTO SUBR)
(PUSH P 1)
(CALL 0 (E CURCOL))
(MOVE 2 0 P)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG5)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E LINEF))
TAG5 (MOVE 1 0 P)
(PUSH P (SPECIAL *TB))
(CALL 1 (E SUB1))
(MOVEI 2 (QUOTE -3))
(CALL 2 (E LSH))
(PUSH P 1)
(CALL 0 (E CURCOL))
(CALL 1 (E SUB1))
(MOVEI 2 (QUOTE -3))
(CALL 2 (E LSH))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E *DIF))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E PRINTN))
(PUSH P (SPECIAL *SP))
(CALL 0 (E CURCOL))
(MOVE 2 1)
(MOVE 1 -1 P)
(CALL 2 (E *DIF))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E PRINTN))
(MOVEI 1 (QUOTE NIL))
(SUB P (C 0 0 1 1))
(POPJ P)
NIL
(SETQ PAGEHEIGHT 64)
(SETQ PAGEWIDTH 105)
(MAPCAR (FUNCTION (LAMBDA (PAIR) (PROG2 (SET (CAR PAIR) (INTERN (ASCII (CADR PAIR)))) (CAR PAIR)))) (QUOTE ((*SP~
40) (*TB 11) (*CR 15) (*LF 12) (*VT 13) (*FF 14) (*CO 54) (*PT 56) (*LP 50) (*RP 51) (*SL 57) (*AM 33) (*AT 100~
) (*RO 177) (*COLON 72) (*LB 133) (*RB 135))))
(MAPCAR (FUNCTION (LAMBDA (PAIR) (PUTPROP (CAR PAIR) (CADR PAIR) (QUOTE INTERNFORM)))) (QUOTE ((EXCEPTCOMPOS DOE~
XCEPT) (SPECCOMPOS DOSPEC))))
(MAPCAR (FUNCTION (LAMBDA (PAIR) (PUTPROP (CAR PAIR) (CADR PAIR) (QUOTE SPECCOMPOS)))) (QUOTE ((COMMENT COMPOSSP~
ECIAL) (DE COMPOSDEDFDM) (DEFPROP COMPOSDEFS) (DF COMPOSDEDFDM) (DFUNC COMPOSDEFS) (DM COMPOSDEDFDM) (GETSYM COM~
POSMAPDEF) (LABEL COMPOSASSIGN) (LAMBDA COMPOSDEFS) (MAPDEF COMPOSMAPDEF) (PROG COMPOSPROG) (SETQ COMPOSASSIGN) ~
(SPECIAL COMPOSSPECIAL))))